10 FORJ=0TO255:POKE53270,J:NEXT:POKE53270,200:REM TOMZ SHAKER**
11 GOTO10